home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 December / PC Answers December 1995 (disc errors).iso / mxc / caller.dir / 00001.ls next >
Encoding:
Text File  |  1995-04-26  |  648 b   |  27 lines
  1. global gApp
  2.  
  3. on startMovie
  4.   if the machineType = 256 then
  5.     openXLib("xmisc.dll")
  6.     set lFred to XMisc(mnew)
  7.     set lSysFolder to lFred(mGetSysDir)
  8.     closeXLib("xmisc.dll")
  9.     set lPrefPath to lSysFolder & "\SFF02.ini"
  10.   else
  11.     openXLib("sysfold.xcmd")
  12.     set lSysFolder to systemFolder()
  13.     closeXLib("sysfold.xcmd")
  14.     set lPrefPath to lSysFolder & "Preferences:SFF02 prefs"
  15.   end if
  16.   set XJack to FileIO(mnew, "read", lPrefPath)
  17.   if XJack = -43 then
  18.     beep()
  19.   end if
  20.   set lPrefFile to XJack(mReadFile)
  21.   if lPrefFile = EMPTY then
  22.     alert("Where's online.ini")
  23.   else
  24.     set gApp to the last line in lPrefFile
  25.   end if
  26. end
  27.